home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
fglqbx10.zip
/
06-08.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-06
|
287b
|
24 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
OldMode = FGgetmode
FGsetmode FGautomode
FGsetcolor 15
FGinitw
FGsetworld -100.0, 100.0, -100.0, 100.0
X = FGxscreen(0.0)
FGmovew 0.0, 0.0
FGellipsew 12.5, 12.5
FGcirclew 12.5
FGwaitkey
FGsetmode OldMode
FGreset
END